home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb11.zip / LIST.PAS < prev    next >
Pascal/Delphi Source File  |  1985-07-13  |  644b  |  23 lines
  1. PROGRAM LIST;
  2.  
  3. {
  4. Utility to emulate the CP/M TYPE command, without having to leave the
  5. Turbo Pascal environment.
  6.  
  7. Source: "Four Lifesaving Utilities for CP/M", TUG Lines Volume I Issue 4
  8. Author: Kirby Pressly/2011 Willowbend/Wharton, TX 77448
  9. Application: CP/M-80 (can also be used with PC-DOS, MS-DOS)
  10. }
  11.  
  12.   VAR
  13.   FILENAME: STRING[14];   LINE:  STRING[80] ;
  14.   FILVAR:         TEXT;
  15.   BEGIN
  16.     CLRSCR;
  17.     WRITE('ENTER  DRIVE:FILENAME.EXTENT  >>=> '); READLN(FILENAME) ;
  18.     ASSIGN(FILVAR,FILENAME);  RESET(FILVAR);
  19.     WHILE NOT EOF(FILVAR)
  20.       DO BEGIN
  21.          READLN(FILVAR,LINE);  WRITELN(LINE);
  22.       END;
  23.    END.